prolog './g222p.ijs'
NB. ~:/\ B ---------------------------------------------------------------

(0 0 1 1,:0 1 1 0) -: ~:/\ 0 0 1 1 ,: 0 1 0 1
(20$1 0) -: ~:/\20$1
(20$0  ) -: ~:/\20$0

ne=: 4 : 'x~:y'
nescan=: 2&|@(+/\)

(~:/\   -: ne/\  ) x=:?    13$2
(~:/\   -: ne/\  ) x=:?4   13$2
(~:/\"1 -: ne/\"1) x
(~:/\   -: ne/\  ) x=:?3 5 13$2
(~:/\"1 -: ne/\"1) x
(~:/\"2 -: ne/\"2) x

(~:/\   -: nescan  ) x=:?    32$2
(~:/\   -: nescan  ) x=:?4   32$2
(~:/\"1 -: nescan"1) x
(~:/\   -: nescan  ) x=:?4 8 32$2
(~:/\"1 -: nescan"1) x
(~:/\"2 -: nescan"2) x

(~:/\   -: nescan  ) x=:?    23$2
(~:/\   -: nescan  ) x=:?5   23$2
(~:/\"1 -: nescan"1) x
(~:/\   -: nescan  ) x=:?5 7 23$2
(~:/\"1 -: nescan"1) x
(~:/\"2 -: nescan"2) x

f=: 3 : '(~:/\ -: nescan) y ?@$ 2'
,f"1 x=:7 8 9,."0 1 [ _1 0 1+  255
,f"1 |."1 x
,f"1 x=:7 8 9,."0 1 [ _1 0 1+4*255
,f"1 |."1 x


NB. ~:/\ I ---------------------------------------------------------------

ne=: 4 : 'x~:y'

(~:/\ -: ne/\) x=:1 2 3 1e9 2e9
(~:/\ -: ne/\) |.x

(~:/\   -: ne/\  ) x=:_1e4+?    13$2e4
(~:/\   -: ne/\  ) x=:_1e4+?4   13$2e4
(~:/\"1 -: ne/\"1) x
(~:/\   -: ne/\  ) x=:_1e4+?3 5 13$2e4
(~:/\"1 -: ne/\"1) x
(~:/\"2 -: ne/\"2) x

(~:/\   -: ne/\  ) x=:_1e9+?    13$2e9
(~:/\   -: ne/\  ) x=:_1e9+?4   13$2e9
(~:/\"1 -: ne/\"1) x
(~:/\   -: ne/\  ) x=:_1e9+?3 5 13$2e9
(~:/\"1 -: ne/\"1) x
(~:/\"2 -: ne/\"2) x


NB. ~:/\ D ---------------------------------------------------------------

ne=: 4 : 'x~:y'

(~:/\   -: ne/\  ) x=:0.01*_1e4+?    13$2e4
(~:/\   -: ne/\  ) x=:0.01*_1e4+?4   13$2e4
(~:/\"1 -: ne/\"1) x
(~:/\   -: ne/\  ) x=:0.01*_1e4+?3 5 13$2e4
(~:/\"1 -: ne/\"1) x
(~:/\"2 -: ne/\"2) x


NB. ~:/\ Z --------------------------------------------------------------

ne=: 4 : 'x~:y'

(~:/\   -: ne/\  ) x=:[&.j. 0.1*_1e2+?2     13$2e2
(~:/\   -: ne/\  ) x=:[&.j. 0.1*_1e2+?2 4   13$2e2
(~:/\"1 -: ne/\"1) x
(~:/\   -: ne/\  ) x=:[&.j. 0.1*_1e2+?2 3 5 13$2e2
(~:/\"1 -: ne/\"1) x
(~:/\"2 -: ne/\"2) x

(,'j')    -: ~:/\'j'
(,<'ace') -: ~:/\<'ace'
(,'j')    -: ~:/\u:'j'
(,<'ace') -: ~:/\<u:'ace'
(,'j')    -: ~:/\10&u:'j'
(,<'ace') -: ~:/\<10&u:'ace'
(,s:@<"0 'j')    -: ~:/\s:@<"0 'j'
(,s:@<"0&.> <'ace') -: ~:/\s:@<"0&.> <'ace'
(,<"0@s: <'ace') -: ~:/\<"0@s: <'ace'

'domain error' -: ~:/\ etx 'deipnosophist'
'domain error' -: ~:/\ etx ;:'peace in our time'
'domain error' -: ~:/\ etx u:'deipnosophist'
'domain error' -: ~:/\ etx u:&.> ;:'peace in our time'
'domain error' -: ~:/\ etx 10&u:'deipnosophist'
'domain error' -: ~:/\ etx 10&u:&.> ;:'peace in our time'
'domain error' -: ~:/\ etx s:@<"0 'deipnosophist'
'domain error' -: ~:/\ etx s:@<"0&.> ;:'peace in our time'
'domain error' -: ~:/\ etx <"0@s: ;:'peace in our time'




epilog''

